home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 6-Pak - Disc 5
/
Windows 6-Pak (InfoMagic) (Disc 5) (1999).ISO
/
Misc-Programming-Tools
/
regen01.exe
/
REGENUM.EXE
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
Wrap
Text File
|
1998-09-02
|
8KB
|
363 lines
object Form1: TForm1
Left = 178
Top = 142
Width = 559
Height = 333
HelpContext = 10
Caption = 'Registry key enumerator'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Menu = MainMenu1
Position = poScreenCenter
ShowHint = True
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 551
Height = 49
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Panel5: TPanel
Left = 0
Top = 0
Width = 430
Height = 49
Align = alClient
BevelInner = bvRaised
BevelOuter = bvNone
TabOrder = 0
object Panel6: TPanel
Left = 353
Top = 1
Width = 76
Height = 47
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object el_cbxMaxDepth: TEnhLabel
Left = 4
Top = 7
Width = 53
Height = 13
Caption = '&Max depth:'
FocusControl = cbxMaxDepth
end
object cbxMaxDepth: TLblComboBox
Left = 4
Top = 22
Width = 64
Height = 21
Hint = 'Recursion'
ItemHeight = 13
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'(no limit)')
TabOrder = 0
Text = '1'
OnChange = cbxMaxDepthChange
LabelPos = lpTop
LabelMargin = 2
LabelComponent = el_cbxMaxDepth
end
end
object Panel7: TPanel
Left = 1
Top = 1
Width = 352
Height = 47
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object el_cbxKey: TEnhLabel
Left = 8
Top = 7
Width = 21
Height = 13
Caption = '&Key:'
FocusControl = cbxKey
end
object cbxKey: TLblComboBox
Left = 8
Top = 22
Width = 357
Height = 21
Hint = 'Full registry key'
ItemHeight = 13
TabOrder = 0
LabelPos = lpTop
LabelMargin = 2
LabelComponent = el_cbxKey
end
end
end
object Panel4: TPanel
Left = 430
Top = 0
Width = 121
Height = 49
Align = alRight
BevelInner = bvRaised
BevelOuter = bvNone
TabOrder = 1
object sbStop: TSpeedButton
Left = 8
Top = 22
Width = 21
Height = 21
Hint = 'Stop (alt-s)'
Caption = 'X'
Enabled = False
OnClick = sbStopClick
end
object btnEnum: TButton
Left = 38
Top = 22
Width = 75
Height = 21
Hint = 'Go!'
Caption = 'E&numerate'
TabOrder = 0
OnClick = btnEnumClick
end
end
end
object Panel2: TPanel
Left = 0
Top = 49
Width = 551
Height = 238
Align = alClient
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 1
object Panel3: TPanel
Left = 0
Top = 0
Width = 551
Height = 219
Align = alClient
BevelOuter = bvNone
Caption = 'Panel3'
TabOrder = 0
object RichEdit1: TRichEdit
Left = 0
Top = 0
Width = 551
Height = 219
Align = alClient
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 200000000
ParentFont = False
PlainText = True
PopupMenu = EditPopUp
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 219
Width = 551
Height = 19
Panels = <
item
Text = 'Processing key : '
Width = 50
end>
SimplePanel = False
end
end
object MainMenu1: TMainMenu
Left = 117
Top = 114
object File1: TMenuItem
Caption = '&File'
ShortCut = 0
object OpenRegedit1: TMenuItem
Caption = 'Open &Regedit'
ShortCut = 0
OnClick = OpenRegedit1Click
end
object N5: TMenuItem
Caption = '-'
ShortCut = 0
end
object Open1: TMenuItem
Caption = '&Open'
ShortCut = 0
OnClick = Open1Click
end
object Save1: TMenuItem
Caption = '&Save'
ShortCut = 0
OnClick = Save1Click
end
object SaveAs1: TMenuItem
Caption = 'Save &As'
ShortCut = 0
OnClick = SaveAs1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 0
OnClick = Exit1Click
end
end
object Edit1: TMenuItem
Caption = '&Edit'
ShortCut = 0
OnClick = Edit1Click
object copy1: TMenuItem
Caption = '&Copy'
ShortCut = 0
OnClick = copy1Click
end
object Paste1: TMenuItem
Caption = '&Paste'
ShortCut = 0
Visible = False
OnClick = Paste1Click
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object Find1: TMenuItem
Caption = '&Find'
ShortCut = 16454
OnClick = Find1Click
end
object FindNext1: TMenuItem
Caption = 'Find Next'
ShortCut = 114
OnClick = FindNext1Click
end
object N6: TMenuItem
Caption = '-'
ShortCut = 0
end
object Selectall1: TMenuItem
Caption = '&Select all'
ShortCut = 0
OnClick = Selectall1Click
end
end
object Options1: TMenuItem
Caption = '&Options'
ShortCut = 0
object TextOnly1: TMenuItem
Caption = '&Strings Only'
ShortCut = 0
OnClick = TextOnly1Click
end
object DefaultsOnly1: TMenuItem
Caption = '&Defaults Only'
ShortCut = 0
OnClick = DefaultsOnly1Click
end
object Fullkeypaths1: TMenuItem
Caption = '&Full key paths'
ShortCut = 0
OnClick = Fullkeypaths1Click
end
object N4: TMenuItem
Caption = '-'
ShortCut = 0
end
object Other1: TMenuItem
Caption = '&Other Options'
ShortCut = 0
OnClick = Other1Click
end
end
object Tools1: TMenuItem
Caption = '&Tools'
ShortCut = 0
object BackupRegistry1: TMenuItem
Caption = '&Backup Registry'
ShortCut = 0
OnClick = BackupRegistry1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
ShortCut = 0
object HelpTopics1: TMenuItem
Caption = '&Help Topics'
ShortCut = 0
OnClick = HelpTopics1Click
end
object N3: TMenuItem
Caption = '-'
ShortCut = 0
end
object AboutRegenumerator1: TMenuItem
Caption = '&About Reg Enumerator'
ShortCut = 0
OnClick = AboutRegenumerator1Click
end
end
end
object FormStorage1: TFormStorage
StoredProps.Strings = (
'DefaultsOnly1.Checked'
'TextOnly1.Checked'
'cbxKey.Items')
Left = 209
Top = 82
end
object SaveDialog1: TSaveDialog
DefaultExt = 'txt'
FileEditStyle = fsEdit
Filter = 'Text|txt'
Options = [ofOverwritePrompt, ofExtensionDifferent, ofPathMustExist]
Left = 237
Top = 150
end
object OpenDialog1: TOpenDialog
DefaultExt = 'txt'
FileEditStyle = fsEdit
Options = [ofNoValidate, ofPathMustExist, ofFileMustExist]
Left = 321
Top = 114
end
object EditPopUp: TPopupMenu
OnPopup = EditPopUpPopup
Left = 96
Top = 209
object Bold1: TMenuItem
Caption = 'Bold'
ShortCut = 0
OnClick = Bold1Click
end
object Copy2: TMenuItem
Caption = 'Copy'
ShortCut = 0
OnClick = Copy2Click
end
end
end